home *** CD-ROM | disk | FTP | other *** search
/ Hottest 6 / Hottest 6 (1996)(PDSoft)[!].iso / software / videoutils / h-m / mainactor / rexx / adpro.ma next >
Text File  |  1978-11-24  |  3KB  |  125 lines
  1. /*
  2.  *
  3.  *     AdPro V 1.0, 1993 Markus Moenig
  4.  *
  5.  *     Uses the current operator of AdPro on the actual source project,
  6.  *         AdPro has to be active and setup to your wanted operation.
  7.  *
  8.  *     The new project gets the name of the source project + ".new"
  9.  *     and is also converted to the saver module type of the source project.
  10.  *
  11.  *     The loader/saver of the source project can be either picture
  12.  *     or animation modules.
  13.  *
  14.  *     A new project will be opened for the resulting pictures/animation.
  15.  */
  16.  
  17. OPTIONS RESULTS
  18.  
  19. ADDRESS MAINACTOR 
  20.  
  21. ScreenToFront
  22. PrintAndStoreTXT "AdPro script V1.0 ..."
  23.  
  24. IF ~SHOW('P','ADPro') THEN DO
  25.  
  26.     PrintAndStoreTXT "Need ACTIVE AdPro ... aborting"
  27.     EXIT
  28.     
  29. END  
  30.  
  31. ADDRESS MAINACTOR
  32.  
  33. GetSPName
  34.  
  35. IF rc = 0 THEN DO                          /* check if project loaded */
  36.  
  37.     PARSE VAR RESULT firstname secondname .  /* store name of the animation */
  38.                                              /* or the names of the picture list */
  39.     ScreenToFront
  40.  
  41.     DeSelectAll
  42.  
  43.     GetSPSaver
  44.     PARSE VAR RESULT savertype savername .   /* store type, name of saver module */
  45.  
  46.                                            /* Store general infos of the project */
  47.     GetSPInfo
  48.     PARSE VAR RESULT width height colors pics caching loop cpf .
  49.  
  50.     IF savertype = "PIC" THEN
  51.         picformat=savername
  52.     ELSE DO
  53.         picformat=IFF
  54.         SetSPSaver PIC picformat
  55.     END
  56.     
  57.     ADDRESS "ADPro"
  58.         LFormat "Universal"
  59.         PSTATUS UNLOCKED
  60.         ORIENTATION PORTRAIT
  61.         SFormat picformat
  62.  
  63.     ADDRESS MAINACTOR
  64.  
  65.     newname = firstname || ".new"            /* new name = old one + ".new" */
  66.  
  67.     SelectAll
  68.     
  69.     saveargs=newname
  70.         
  71.     Save saveargs                            /* Save Pictures */
  72.  
  73.     DO i=1 to pics                           /* Operate all pics */
  74.  
  75.         actualpic=newname || "." || Right("00000" || i, 5)
  76.     PrintTxt "ADPro operates on Picture" i
  77.  
  78.         ADDRESS "ADPro"    
  79.         Load actualpic
  80.         RENDER_TYPE colors
  81.         PSORT 0
  82.         Execute    
  83.         Save actualpic IMAGE
  84.  
  85.         ADDRESS MAINACTOR
  86.  
  87.     END
  88.  
  89.     IF caching = "CACHING=YES" THEN                 /* Was the old project cached ? */
  90.         
  91.         OpenNewProject "CACHING"               /* If yes new project is also cached */
  92.     
  93.     ELSE 
  94.         
  95.         OpenNewProject                         /* If not new project is not cached */
  96.  
  97.     SetSPLoader PIC picformat                /* Set the new projects loader module */
  98.  
  99.     firstpic=newname || "." || Right("00000" || 1, 5)
  100.     lastpic=newname || "." || Right("00000" || pics, 5)
  101.  
  102.     LoadProject firstpic lastpic             /* Load picture list */
  103.  
  104.     SetSPSaver savertype savername
  105.  
  106.     IF savertype = "ANIM" THEN DO            /* If we wanted a new animation, */
  107.                                              /* we have to build it */
  108.         SelectAll
  109.         saveargs=newname || " " || cpf || " " || loop
  110.         Save saveargs
  111.         UnloadProject
  112.         
  113.         DO i=1 TO pics                         /* delete temporary pics */
  114.             actualpic=newname || "." || Right("00000" || i, 5)
  115.             PrintTxt "Delete " || actualpic
  116.             ADDRESS COMMAND    "delete " || actualpic
  117.         END
  118.         
  119.         SetSPLoader savertype savername
  120.         LoadProject newname
  121.     END
  122.     
  123.     PrintAndStoreTXT "READY !!!!"
  124. END
  125.